home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / COMM.SWG / 0005_Another Carrier Detect.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  361b  |  18 lines
  1. {
  2. Author: Sean Palmer
  3.  
  4. > Does anyone know how to detect when the modem connects?? Thanks.
  5.  
  6. Check For a carrier: (periodically, like 2-4 times per second)
  7. }
  8.  
  9. Const
  10.   pBase = $3F8;  {change For which port you're using}
  11.   pMSR  = pBase + 6; {modem status register}
  12.  
  13. Function carrier : Boolean;
  14. begin
  15.   carrier := (port[pMSR] and $80) <> 0;
  16. end;
  17.  
  18.